(view-lossage): Handle buffers and frames in recent-keys.

diff --git a/lisp/help.el b/lisp/help.el
index c6585f0e41b9400a0ef13e4f78b15960c9de2135..308574cca5cd43bec0170a5d737f09e81dd4e834 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -287,7 +287,14 @@ of the key sequence that ran this command."
   "Display last 100 input keystrokes."
   (interactive)
   (with-output-to-temp-buffer "*Help*"
-    (princ (key-description (recent-keys)))
+    (princ (mapconcat (function (lambda (key)
+                                 (if (or (integerp key)
+                                         (symbolp key)
+                                         (listp key))
+                                     (single-key-description key)
+                                   (prin1-to-string key nil))))
+                     (recent-keys)
+                     " "))
     (save-excursion
       (set-buffer standard-output)
       (goto-char (point-min))